home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / MORS.BAS < prev    next >
BASIC Source File  |  1995-05-12  |  1KB  |  33 lines
  1. 10 CLS:'MORS ALFABESÿNE ÇEVÿRÿ YAPAN PROGRAM. MORS.BAS
  2. 20 DIM M$(35) :  ' MURAT NECÿOªLU
  3. 30 DATA A26,B6222,C6262,D622,E2,F2262,G662,H2222,I22,J2666
  4. 40 DATA K626,L2622,M66,N62,O666,P2662,Q6626,R262,S222,T6
  5. 50 DATA U226,V2226,W266,X6226,Y6266,Z6622,126666
  6. 60 DATA 222666,322266,422226,622222,662222,766222,866622,966662
  7. 70 '
  8. 80 FOR T= 1 TO 35: READ M$(T): NEXT
  9. 90 '
  10. 100 INPUT "MESAJINIZI GÿRÿN ";K$
  11. 110 UU=LEN(K$)
  12. 120 FOR DD=1 TO UU
  13. 130    H$=MID$(K$,DD,1)
  14. 140    IF H$="0" THEN MORS$="066666"
  15. 150    IF H$="Ç" THEN MORS$="Ç62622"
  16. 160    IF H$="ª" THEN MORS$=M$(7)
  17. 170    IF H$="Ö" THEN MORS$="Ö6662"
  18. 180    IF H$="₧" THEN MORS$="₧6666"
  19. 190    IF H$="Ü" THEN MORS$="Ü2266"
  20. 200 '
  21. 210    ASK=ASC(H$):DEG=VAL(H$)
  22. 220    IF H$ >="A" AND H$<="Z" THEN ASK=ASK-64 : MORS$=M$(ASK)
  23. 230    IF DEG<>0 THEN MORS$=M$(DEG+26)
  24. 240    U=LEN(MORS$)
  25. 250 '
  26. 260      FOR D=2 TO U
  27. 270         MH$=MID$(MORS$,D,1): DE=VAL(MH$)
  28. 280         SOUND 2000,DE
  29. 290         IF MH$="2" THEN PRINT "∙ "; ELSE PRINT "- ";
  30. 300           FOR ARA=1 TO 1000: NEXT
  31. 310      NEXT: PRINT "  ";: FOR ARA=1 TO 1000 : NEXT
  32. 320 NEXT
  33.